home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
T-COMAL Today
/
(k)t3.d64
/
load'screen.l
< prev
next >
Wrap
Text File
|
2007-02-28
|
1KB
|
59 lines
9000 // LOAD GRAPHICS SCREEN FROM DISK
9010 // (C)1984 W. LOUIE 05/27/84
9020 //
9030 // WALLACE LOUIE
9040 // 3407 AVENUE 'S'
9050 // BROOKLYN, N.Y. 11234
9060 //
9070 //
9080 PROC LOAD'GRAPHICS'SCREEN(FILENAME$) CLOSED
9090 DIM NAME$ OF 20
9100 NAME$:=FILENAME$+".HRG"
9110 SETGRAPHIC 0
9120 FULLSCREEN
9130 HIDETURTLE
9140 CLEAR
9150 FILL 0,0
9160 OBJLOAD(NAME$,8)
9170 ENDPROC LOAD'GRAPHICS'SCREEN
9180 //
9190 //
9200 PROC OBJLOAD(FILENAME$,DEVICE) CLOSED
9210 FOR I:=1 TO LEN(FILENAME$) DO
9220 POKE 827+I,ORD(FILENAME$(I))
9230 ENDFOR I
9240 POKE 850,169 // LDA
9250 POKE 851,DEVICE
9260 POKE 852,170 // TAX
9270 POKE 853,160 // LDY #$FF
9280 POKE 854,255
9290 POKE 855,32 // JSR $FFBA
9300 POKE 856,186
9310 POKE 857,255
9320 POKE 858,169 // LDA
9330 POKE 859,LEN(FILENAME$)
9340 POKE 860,162 // LDX #$3C
9350 POKE 861,60
9360 POKE 862,160 // LDY #$03
9370 POKE 863,3
9380 POKE 864,32 // JSR $FFBD
9390 POKE 865,189
9400 POKE 866,255
9410 POKE 867,169 // LDA #$00
9420 POKE 868,0
9430 POKE 869,162 // LDX #$FF
9440 POKE 870,255
9450 POKE 871,160 // LDY #$FF
9460 POKE 872,255
9470 POKE 873,32 // JSR $FFD5
9480 POKE 874,213
9490 POKE 875,255
9500 POKE 876,169 // LDA
9510 POKE 877,DEVICE
9520 POKE 878,32 // JSR $FFC3
9530 POKE 879,195
9540 POKE 880,255
9550 POKE 881,96 // RTS
9560 SYS 850
9570 ENDPROC OBJLOAD